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-- BcdTabDefs.Mesa Edited by Sandman on March 22, 1978 2:43 PM 

DIRECTORY 

BcdDefs: FROM "bcddefs". 
TableDefs: FROM "tabledefs", 
StringDefs: FROM "stringdef s" ; 

BcdTabDefs: DEFINITIONS «- 
BEGIN 

TableLimit: CARDINAL » TableDefs. TableLimit; 

-- Hash Table 

HVLength: PRIVATE INTEGER - 71; 
HVIndex: TYPE - INTEGER [0. .HVLength) ; 

HTRecord: TYPE - RECORD [ 
link: HTIndex, 
offset: CARDINAL]; 

HTNull: HTIndex - FIRST[HTIndex]; 
HTIndex: TYPE - INTEGER [0 . .TableLimit) ; 

-- Semantic Table 

STRecord: TYPE « RECORD [ 
filename, assigned: BOOLEAN, 
hti: HTIndex, 

imported, exported: BOOLEAN, 
link: STIndex, 
impi: BcdDefs . IMPIndex. 
impgfi: CARDINAL, 
body: SELECT type: * FROM 
unknown => NULL, 
local «> [ 

info: TableDefs. Tablelndex, --BcdTreeDef s.Treelndex, 
context: CXIndex], 
external •> [ 
map: STMap, 

pointer: SELECT ptype: * FROM 
instance »> [sti: STIndex], 
file => [fti: BcdDefs . FTIndex], 
ENDCASE], 
ENDCASE]; 

STNull: STIndex « LAST[STIndex]; 

STIndex: TYPE « POINTER [0. .TableLimit) TO STRecord; 

STMap: TYPE = RECORD [ 
SELECT type: * FROM 
unknown «> NULL, 

config => [cti: BcdDefs. CTIndex], 
module «> [mti: BcdDefjS .MTIndex], 
interface «> [expi: BcdDefs .EXPIndex] , 
ENDCASE]; 

-- Context Table 

CXRecord: TYPE « RECORD [ 
link: STIndex]; 

CXNull: CXIndex = LAST[CXIndex]; 

CXIndex: TYPE - POINTER [0. .TableLimit) TO CXRecord; 

-- Hash Manipulation 

FindString, FindEquivalentString: PROCEDURE [StringDefs. Substring] RETURNS [found: BOOLEAN, hti: HTIn 
**dex]; 

EnterString: PROCEDURE [StringDefs .Substring] RETURNS [HTIndex]; 
SubStringForHash: PROCEDURE [StringDefs .Substring , HTIndex]; 
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-- Administrative Procedures 

BcdTablnit, BcdTabErase, BcdTabReset: PROCEDURE; 

END. 



